Jika program yang dibuat banyak atau terdiri atas beberapa form atau 
item, sebaiknya pengembang (programmer) membuat menu di dalam 


program untuk memudahkan pemakai memakai program. 


Dalam Visual Basic 2010 terdapat beberapa jenis menu, seperti 
MenuStrip, ContextMenuStrip, StatusStrip dan ToolStrip. Untuk lebih jelas 


tentang menu-menu tersebut ikuti pembahasannya pada bab ini. 


51 Membuat Menu Strip 


MenuStrip merupakan menu berbentuk pulldown (menu disusun ke 
bawah, Anda dapat memilihnya dengan mengklik, untuk menuju ke 
menu yang lain, dapat menggunakan tombol panah). Untuk lebih 
jelasnya ikuti langkah-langkah pembuatan programnya di bawah ini: 


1. Dalam keadaan Projectnotable aktif atau terbuka, klik kanan pada 
Projectnotable di jendela Solution Explorer dan pilih menu Add » 
New Item..., kemudian pilih template Windows Form. 


2. Atur properti Text untuk objek Form menjadi Menu Program Loop 
VB2010 dan tempatkan objek MenuStrip di ToolBox ke Form 
Designer seperti berikut. 
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Gambar 5.1 Objek MenusStrip di ToolBox 


3. Tampilan MenuStrip di Form Designer seperti berikut. 


PM formutama.wb (Design)” Xx MeNOkauluela latih10.vb latih10.vb (Design) 
3 
t 
EM | Menu Program Loop VB2010 ren 
& 
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s 
5 
5 
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& MenuStrip1 


Gambar 5.2MenusStrip di Form Designer 


4. Atur properti Form seperti table di bawah ini. 


No Objek Properti Nilai 
1 Form1 Name formutama 
2 Form1 ControlBox False 


3 Form1 WindowState Maximized 


Tabel 5.1 Pengaturan Properti Formutama 
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5. Ketik &For..Next di kotak Type Here seperti berikut. 


P#M formutama.vb (Designi” x TEawusla latih10.vb latih10.vb (Design) 
ay 
o. 
8 Menu Program Loop VB2010 
3 Eor..Next 
9 
& 
» 
s 
e 
ta 
3 
5 MenuStripl 


Gambar 5.3 Mengetik di kotak Type Here 


6. Ketik Do &While..Loop di kotak Type Here sebelah kanannya, 
berikutnya ketik Do &Until..Loop, For..&Each dan &Exit. 


formutamamxb (Design)” Xx Wikan latih10.vb latih10.vb (Design) 


Menu Program Loop VB2010 
Eor..Next DoWhile..Loop  DoUntil.Loop  For..Each Bat | 


sadinos ejeg Mk xogjoo1 .X. 


 MenuStripl 


Gambar 5.4 Mengetik menu-menu di kotak Type Here 


7. Sehingga hasil akhir MenuStrip seperti berikut. 


67 


Ntar toked Projectnotable — latih10.vb —— latih10.vb (Design) 


Menu Program Loop VB2010 
Eor..Net DoWhile..Loop DoUntil..Loop For..Each Exit 


sadunog ejeg Kdi xog|oo1 N. 


& MenuStrip1 


Gambar 5.5 Hasil akhir MenuStrip 


8. Untuk memberi perintah di menu For..Next, klik dua kali menu 
tersebut dan ketik perintah seperti di bawah ini: 
Private Sub ForNextToolStripMenuItem Click (ByVal sender As 


System.Object, ByVal e As System.EventaArgs) Handles 
ForNextToolStripMenulItem.Click 


latih7.Show() 
End Sub 
9. Untuk menu yang lainnya, seperti cara di atas dan masing-masing 
perintahnya seperti berikut: 


Private Sub DowhileLoopToolStripMenuItem Click (ByVal sender 
As System.Object, ByvVal e As System.EventArgs) Handles 
DowhileLoopToolStripMenulItem.Click 


latih8.Show() 
End Sub 


Private Sub DoUntilLoopToolStripMenuItem Click (ByVal sender 
As System.Object, ByVal e As System.EventArgs) Handles 
DoUntilLoopToolStripMenuItem.Click 


latih9.Show() 


End Sub 


Private Sub ForEachToolStripMenuItem Click (ByvVal sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ForEachToolStripMenuItem.Click 
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10. 
11. 


12. 
13. 


14. 


latih10.Show() 


End Sub 


Private Sub ExitToolStripMenuItem Click(ByVal sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ExitToolStripMenuItem.Click 


End 


End Sub 


Simpan file dengan memilih menu File » Save Forml.vb As... 


Kemudian arahkan ke folder Anda, sebagai contoh saya arahkan ke 
folder prgsbmp1vb2010 di drive G:. 


Ketik formutama di kotak File name dan klik tombol Save. 


Sebelum menjalankan formutama, pilih menu Project » 
Projectnotable Properties... dan atur Start form menjadi 
formutama. 


Untuk menjalankan program atau file formutama, klik ikon Start 
Debugging (F5), akan muncul keluaran formutama seperti berikut. 


Gambar 5.6 Tampilan formutama setelah dijalankan 


5.2 Membuat ContextNYjenu Strip 


ContextMenuStrip merupakan menu yang dijalankan dengan mengklik 
kanan pada form. Menu ini sering juga disebut dengan menu shortcut, 
langkah-langkah pembuatan programnya di bawah ini: 
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1. Dalam keadaan Projectnotable dan file formutama aktif. 


2. Klik objek ContextMenuStrip di toolbox dan tempatkan di 
formutama seperti berikut. 
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Gambar 5.7 Objek MenusStrip di ToolBox 


3. Sehingga objek ContextMenuStrip di formutama seperti berikut. 


latih10.vb latih10.vb (Design) formutama.vb" formutama.vb (Design)” Xx WodeAUa latih9.vb 


Menu Program Loop VB2010 
Eor.Net DoWhile.Loop DoUntil.Loop For.fach Exit 


ContextMenuStrip 


sabinog ejeg Mi xogpoo1 N. 


- ID 
- MenuStrip1 E ContextMenuStrip1 


Gambar 5.8 ContextMenuStrip di formutama 


4. Kemudian Anda ketik masing-masing menu di kotak Type Here. 
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Gambar 5.9 Mengetik menu-menu di kotak Type Here 


5. Untuk memberi perintah di menu For..Next, klik dua kali menu 
tersebut dan ketik perintah seperti di bawah ini: 


Private Sub ForNextToolStripMenuIteml Click(ByVal sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ForNextToolStripMenuIteml.Click 


latih7.Show() 
End Sub 


6. Kemudian klik ikon View Designer (untuk menuju ke form designer) 
pada jendela Solution Explorer. 


7. Untuk menu yang lainnya, seperti cara di atas dan masing-masing 
perintahnya seperti berikut: 


Private Sub DowhileLoopToolStripMenuIteml Click (ByVal 
sender As System.Object, Byval e As System.Eventargs) 
Handles DowhileLoopToolStripMenulIteml.Click 


latih8.Show() 


End Sub 


Private Sub DoUntilLoopToolStripMenuIteml Click (ByVal 
sender As System.Object, Byval e As System.Eventargs) 
Handles DouUntilLoopToolStripMenulIteml.Click 


latih9.Show() 


End Sub 
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8. 


10. 


11. 


12. 
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Private Sub ForEachToolStripMenuIteml Click (Byval sender As 


System.Object, ByVal e As System.EventaArgs) Handles 
ForEachToolStripMenuIteml.Click 


latih10.Show() 


End Sub 


Private Sub ExitToolStripMenuIteml Click (ByVal sender As 


System.Object, ByVal e As System.EventaArgs) Handles 
ExitToolStripMenuIteml.Click 


End 


End Sub 


ContextMenuStrip tidak terlihat sebelum formutama dijalankan dan 
mengklik kanan di area formutama seperti berikut. 


latih10.vb latih10.vb (Design) formutama.vb" formutama.b (Design)” Xx WEUSANI latih9.vb 


Menu Program Loop VB2010 
Eor..Net DoWhile.Loop DoUntil.Loop For.Each Exit 
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Gambar 5.10 ContextMenuStrip tidak terlihat 


Kemudian Anda klik tombol Save formutama.vb (Ctrl-S) untuk 
menyimpan file formutama.vb kembali. 


Sebelum menjalankan formutama, pilih menu Project » 
Projectnotable Properties... dan atur Start form menjadi 
formutama. 


Untuk menjalankan program atau file formutama, klik ikon Start 
Debugging (F5), akan muncul keluaran formutama. 


Untuk menjalankan ContextMenuStrip, klik kanan di area 
formutama, akan muncul ContextMenuStrip dan pilih menu yang 
diinginkan. 


5.3 Membuat “700ol Strip 


ToolStrip merupakan menu yang dapat diberi gambar. Seperti menu 
ToolBar, biasanya letaknya di atas menu MenusStrip. Untuk lebih jelasnya 
ikuti langkah-langkah pembuatan programnya di bawah ini: 


1. Dalam keadaan Projectnotable dan file formutama aktif. 


2. Klik objek ToolStrip di toolbox dan tempatkan di formutama. 
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Gambar 5.11 Objek ToolStrip di ToolBox 


3.  ToolStrip di formutama seperti berikut. 


latih10.vb latih10.vb (Design) Le NM n MN Formutama.vb (Design)” x MEKUcU latih9.vb 


Menu Program Loop VB2010 
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For.Net  DoWhile.Loop DoUntil.Loop For.Each Exit 
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Gambar 5.12 ToolStrip di formutama 


4. Klik kanan ikon Picture, pilih menu Set Image..., akan muncul 
jendela Select Resource dan klik tombol Import.... 
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Gambar 5.13 Jendela Select Resource 


5. Muncul jendela Open dan arahkan ke folder gambar yang akan 
dipakai. Sebagai contoh, memilih file gambar gbrfornext. 


ONE eNana saus | 
GBI As $ Computer » DATAYUN (G) » 2 Search DATAYUN (G) » 
Organize «New folder -- Ol @ 
SE) RecentPlaces 4 Name : Date modified Type - 
Nan bas (N prgsbmp1vb2010 11/01/201218223 — Filefolder 
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. Es alan 21 3 SI gbrdowhile loop 26/12/2010 8:48 JPEG image 
se p  brfirst 09/01/201119:02 JPEG image 
ca DERI FIRMANSY2 — : 
IE gbrfor each 26/12/2010 8:51 JPEG image 
ANGGA (E:) AA - — 5. 
— Dl gbrfomet 26/12/2010 8:47 JPEG image 
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IE gbrlast 09/01/2011 19:03 JPEG image - 
C3 Na Ii | » 
Filename: gbrfonet 7 |image Files(".gif:”jpg:"jpeg:”-b 


Gambar 5.14 Jendela Open 


6. Sehingga file gambar gbrfornext terlihat di jendela Select Resource 
dan klik tombol OK. 
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Gambar 5.15 File gambar gbrfornext di jendela Select Resource 


7. Akan terlihat gambar toolstrip di formutama seperti berikut. 


formutama.vb (Design)” Xx ESA: 


Palma 


Eor.Next DoWhile.Loop DoUntil.Loop For.Each Exit 


& MenuStrip1 "FI ContextMenuStrip1 158 ToolStrip1 


Gambar 5.16 File gambar gbrfornext di formutama 


8. Lakukan lagi seperti langkah di atas, sehingga semua file gambar 
terlihat di formutama. 


latih10.vb (Design) 


el LEE MMI Formutama.vb (Design)” x 


ia Aa 


Eor.Net DoWhile.Loop DoUntil.Loop For.Each Kit 
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Gambar 5.17 Semua file gambar di formutama 
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9. Untuk memberi perintah di menu For..Next, klik dua kali gambar 


For Next (gbrfornext) dan ketik perintah seperti di bawah ini: 


Private Sub ToolStripButtonl Click (ByVal sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ToolStripButtonl.Click 


latih7.Show() 


End Sub 


10. Kemudian klik ikon View Designer (untuk menuju ke form designer) 


pada jendela Solution Explorer. 


11. Untuk menu yang lainnya, seperti cara di atas dan masing-masing 


perintahnya seperti berikut: 


Private Sub ToolStripButton2 Click (ByVal sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ToolStripButton2.Click 


latih8.Show() 
End Sub 


Private Sub ToolStripButton3 Click (Byval sender As 
System.Object, ByVal e As System.EventArgs) Handles 
ToolStripButton3.Click 


latih9.Show() 
End Sub 


Private Sub ToolStripButton4 Click (ByVval sender As 
System.Object, ByVal e As System.EventaArgs) Handles 
ToolStripButton4.Click 


latih10.Show() 
End Sub 


Private Sub ToolStripButton5 Click (Byval sender As 
System.Object, ByVal e As System.Eventargs) Handles 
ToolStripButton5.Click 


End 


End Sub 


12. Kemudian Anda klik tombol Save formutama.vb (Ctrl--S) untuk 
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menyimpan file formutama.vb kembali. 


13. 


14. 


15. 


Sebelum menjalankan formutama, pilih menu Project » 
Projectnotable Properties... dan atur Start form menjadi 
formutama. 


Untuk menjalankan program atau file formutama, klik ikon Start 
Debugging (F5), akan muncul keluaran formutama. 


Muncul formutama dan ToolStrip, sebagai contoh Anda ingin 
menjalankan ToolStrip For..Next. Klik dua kali file gambar For Next 
(gbrfornext) seperti berikut. 


Gambar 5.18 Formutama dijalankan 


5.4 Membuat Status Strip 


StatusStrip merupakan menu yang letaknya di bawah, biasanya untuk 
meletakkan status program. Sebagai contoh, keterangan Copy Right, Jam 
atau tanggal. Untuk lebih jelasnya ikuti langkah-langkah pembuatan 
programnya di bawah ini: 


1. 
2: 


Dalam keadaan Projectnotable dan file formutama aktif. 


Klik objek StatusStrip di toolbox dan tempatkan di formutama. 
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Gambar 5.19 Objek StatuStrip di ToolBox 


3. Objek StatusStrip di formutama seperti berikut. 
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Gambar 5.20 Objek StatuStrip di formutama 


4. Klik ikon ToolStripStatusLabell seperti berikut. 
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Gambar 5.21 Ikon ToolStripStatusLabel1 


5. Atur properti Text ikon ToolStripStatusLabel1 menjadi @Copy Right 
2012 Cv. Noornet seperti berikut. 
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Gambar 5.22 Properti Text icon ToolStripStatusLabel1 


6. Kemudian Anda klik tombol Save formutama.vb (Ctrl-S) untuk 
menyimpan file formutama.vb kembali. 


7. Sebelum menjalankan formutama, pilih menu Project » 


Projectnotable Properties... dan atur Start form menjadi 
formutama. 
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8. 
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Untuk menjalankan program atau file formutama, klik ikon Start 
Debugging (F5), akan muncul keluaran formutama. 


Objek StatusStrip di formutama seperti berikut. 
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Gambar 5.23 Objek StatusStrip di formutama 


